The spatial data used in this report was collected from the Oil Spill Incident Tracking database by the California Department of Fish and Game Office of Spill Prevention & Response, published on July 23, 2009.
oil_spills <- read_sf(here("ds394.shp"))
ca_counties <- read_sf(here("ca_counties","CA_Counties_TIGER2016.shp"))
ca_subset <- ca_counties %>%
select(NAME, ALAND) %>%
rename(county_name = NAME, land_area = ALAND)
#ca_subset %>% st_crs()
#oil_spills %>% st_crs()
oil_spills <- st_transform(oil_spills, 3857)
#oil_spills %>% st_crs()
# Set the viewing mode to "interactive":
tmap_mode(mode = "view")
tm_shape(ca_subset) +
tm_borders() +
tm_shape(oil_spills) +
tm_dots(col = "red1") +
tmap_style("natural")